home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)woc iv 86.d64 / load me (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  78 lines
  1. 0 REM OPEN15,8,15,"S0:LOAD ME":CLOSE15:SAVE"LOAD ME",8:VERIFY"*",8
  2. 10 POKE53280,0
  3. 20 POKE53281,0
  4. 30 PRINT"[147]"
  5. 40 PRINTCHR$(14)
  6. 50 PRINT""
  7. 60 PRINTCHR$(8)
  8. 65 GOSUB400
  9. 70 PRINT" [212][208][213][199] [215]ORLD OF [195]OMMODORE 64 [196]ISK (1986)"
  10. 80 PRINT" [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  11. 90 PRINT""
  12. 100 PRINT"[212]HIS DISK  CONTAINS  PROGRAMS  FROM  THE
  13. 110 [153]"LIBRARY OF THE (null)ORONTO (null)VAL(null)  (null)SERS  CHR$ROUP
  14. 120 PRINT"[201]NC.  [212]HEY ARE PUBLIC DOMAIN AND YOU ARE
  15. 130 [153]"FREE TO  COPY  THIS  DISK  AND  PASS  IT
  16. 140 PRINT"AROUND TO YOUR FRIENDS. [201]F YOU WANT MORE
  17. 150 [153]"INFORMATION ON (null)(null)(null)CHR$ PLEASE WRITE TO  US:
  18. 160 PRINT"
  19. 170 [153]"    (null)(null)(null)CHR$ RIGHT$NC.
  20. 180 PRINT"  5300 [217]ONGE [211]T.
  21. 190 [153]"(null)ILLOWDALE, (null)NTARIO
  22. 200 PRINT"     [205]2[206] 5[210]2
  23. 205 [153]" (416) 733-2933
  24. 210 PRINT"
  25. 220 [153]"(null)E HOPE YOU ENJOY THE SHOW, AND WE  LOOK
  26. 230 PRINT"FORWARD TO SERVING YOU AS  A  MEMBER  OF
  27. 240 [153]"(null)HE (null)ORONTO (null)ET (null)SERS CHR$ROUP RIGHT$NC.
  28. 250 PRINT"
  29. 260 [153]"              PEEKEST (null)EGARDS
  30. 270 PRINT"
  31. 280 [153]"    STR$AVID PEEKRADLEY - (null)(null)(null)CHR$ PEEKOARD (null)EMBER
  32. 300 GOTO1000
  33. 400 B=53248
  34. 410 POKEB+23,255:POKEB+29,255
  35. 420 FORI=0TO62
  36. 430 READA
  37. 440 POKE64*200+I,A
  38. 450 NEXTI
  39. 860 POKE2040,200:POKE2041,200:POKE2042,200:POKE2043,200:POKE2044,200
  40. 865 POKE2045,200:POKE2046,200:POKE2047,200
  41. 866 POKEB+39,1:POKEB+40,2:POKEB+41,3:POKEB+42,4:POKEB+43,5
  42. 867 POKEB+44,6:POKEB+45,7:POKEB+46,8:POKEB+47,9
  43. 870 POKEB+21,0
  44. 895 RETURN
  45. 900 DATA0,0,0,0,124,0,1,254,0,3,254,0,7,254,0,15,130,0,30,1,255,60,1,254
  46. 910 DATA56,1,252,56,1,248,56,0,0,56,1,248,56,1,252,60,1,254,30,1,255,15,130,0
  47. 920 DATA7,254,0,3,254,0,1,254,0,0,124,0,0,0,0
  48. 1000 FORI=1TO15STEP2:POKEB+I,127:NEXTI
  49. 1001 POKEB+39,1:POKEB+40,2:POKEB+41,3:POKEB+42,6
  50. 1002 POKEB+43,7:POKEB+44,14:POKEB+45,10:POKEB+46,9
  51. 1005 POKEB+21,1
  52. 1010 FORI=0TO245:POKEB,I:NEXTI
  53. 1015 POKEB+21,3
  54. 1020 FORI=0TO245STEP2:POKEB+2,I:NEXTI
  55. 1021 POKEB+2,245
  56. 1025 POKEB+21,7
  57. 1030 FORI=0TO245STEP3:POKEB+4,I:NEXTI
  58. 1031 POKEB+4,245
  59. 1035 POKEB+21,15
  60. 1040 FORI=0TO245STEP4:POKEB+6,I:NEXTI
  61. 1041 POKEB+6,245
  62. 1045 POKEB+21,31
  63. 1050 FORI=0TO245STEP5:POKEB+8,I:NEXTI
  64. 1051 POKEB+8,245
  65. 1055 POKEB+21,63
  66. 1060 FORI=0TO245STEP6:POKEB+10,I:NEXTI
  67. 1061 POKEB+10,245
  68. 1065 POKEB+21,127
  69. 1070 FORI=0TO245STEP7:POKEB+12,I:NEXTI
  70. 1071 POKEB+12,245
  71. 1075 POKEB+21,255
  72. 1080 FORI=0TO245STEP8:POKEB+14,I:NEXTI
  73. 1081 POKEB+14,245
  74. 1085 FORJ=1TO25
  75. 1090 FORI=0TO15:POKEB+39,I:NEXTI
  76. 1095 NEXTJ
  77. 2000 GOTO 1085
  78.